unit printers;
begin
  Printer.PrinterIndex := -1;
  DefaultPrnName := Printer.Printers.Strings[Printer.PrinterIndex];
end;

